*************************************************************************************************
* Documentation for Reproduction of
* Intense Ambivalence. 2011. 
* Improving Public Opinion Surveys: Interdisciplinary Innovation and the American National Election Studies
* L.J Zigerell and Heather Marie Rice
* Code by L.J Zigerell
* Stata version 9
*************************************************************************************************
*************************************************************************************************
set more off
set mem 500m
* use "anes_2006pilot", clear[This is the command to load the dataset]
* the dataset used was the 2006 ANES Pilot file
*************************************************************************************************
*************************************************************************************************

//* keep only if pilot battery data *//

tab V06P416 
tab V06P416, nol mi
keep if V06P416 == 1

//* Check for missing observations *//
//* Note: periods are not asked. 8 and 9 are non-responses *//

tab V06P689x, nol mi
tab V06P695x, nol mi
tab V06P701x, nol mi
tab V06P707x, nol mi
tab V06P713x, nol mi
tab V06P719x, nol mi
tab V06P725x, nol mi

*************************************************************************************************
//* pilot battery: scenarios *//

tab V06P695x, mi
tab V06P695x, mi nol
clonevar ab_fatal = V06P695x
recode ab_fatal (9=.)
tab ab_fatal

/////
 
tab V06P707x, mi
tab V06P707x, mi nol
clonevar ab_rape = V06P707x
recode ab_rape (9=.)
tab ab_rape

/////

tab V06P713x, mi
tab V06P713x, mi nol
clonevar ab_defect = V06P713x 
recode ab_defect (8 9=.)
tab ab_defect

/////

tab V06P689x, mi
tab V06P689x, mi nol
clonevar ab_health = V06P689x
recode ab_health (9=.)
tab ab_health

/////

tab V06P701x, mi
tab V06P701x, mi nol
clonevar ab_incest = V06P701x
recode ab_incest (8 9=.)
tab ab_incest

/////

tab V06P725x, mi
tab V06P725x, mi nol
clonevar ab_money = V06P725x
recode ab_money (9=.)
tab ab_money

/////

tab V06P719x, mi
tab V06P719x, mi nol
clonevar ab_gender = V06P719x
recode ab_gender (9=.)
tab ab_gender

*************************************************************************************************
//* pilot battery: timing *//

tab V06P700, mi
tab V06P700, mi nol
clonevar ab_fatal_time = V06P700
recode ab_fatal_time (8 9=.)
tab ab_fatal_time

/////

tab V06P712, mi
tab V06P712, mi nol
clonevar ab_rape_time = V06P712
recode ab_rape_time (8 9=.)
tab ab_rape_time

/////

tab V06P718, mi
tab V06P718, mi nol
clonevar ab_defect_time = V06P718
recode ab_defect_time (8 9=.)
tab ab_defect_time

/////

tab V06P694, mi
tab V06P694, mi nol
clonevar ab_health_time = V06P694
recode ab_health_time (8 9=.)
tab ab_health_time

/////

tab V06P706, mi
tab V06P706, mi nol
clonevar ab_incest_time = V06P706 
recode ab_incest_time (8 9=.)
tab ab_incest_time

/////

tab V06P730, mi
tab V06P730, mi nol
clonevar ab_money_time = V06P730
recode ab_money_time (8 9=.)
tab ab_money_time

/////

tab V06P724, mi
tab V06P724, mi nol
clonevar ab_gender_time = V06P724
recode ab_gender_time (8 9=.)
tab ab_gender_time

*************************************************************************************************
//* pilot battery: scenario and timing cross-tabulations *//

tab ab_fatal  ab_fatal_time  if ab_fatal  != . & ab_fatal  < 4, mi /* reported in Figure 17.5 */
tab ab_rape   ab_rape_time   if ab_rape   != . & ab_rape   < 4, mi /* reported in Figure 17.5 */
tab ab_defect ab_defect_time if ab_defect != . & ab_defect < 4, mi /* reported in Figure 17.5 */
tab ab_health ab_health_time if ab_health != . & ab_health < 4, mi /* reported in Figure 17.5 */
tab ab_incest ab_incest_time if ab_incest != . & ab_incest < 4, mi /* reported in Figure 17.5 */
tab ab_money  ab_money_time  if ab_money  != . & ab_money  < 4, mi /* reported in Figure 17.5 */
tab ab_gender ab_gender_time if ab_gender != . & ab_gender < 4, mi /* reported in Figure 17.5 */

di 117/166

sum ab_fatal
sum ab_rape   
sum ab_defect 
sum ab_health 
sum ab_incest 
sum ab_money 
sum ab_gender 
*************************************************************************************************
*************************************************************************************************
